home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok19 / patterns / hipattern.def next >
Text File  |  1993-11-04  |  893b  |  28 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.     HiPattern.def
  3.     :Contents.      Definiert und setzt Füllmuster für 1:2-Graphik
  4.     :Contents      (Hires-normal)
  5.     :Author.      Bernd Preusing
  6.     :Address.      Gerhardstr. 16  D-2200 Elmshorn
  7.     :Phone.      04121/22486
  8.     :Copyright.      Public Domain
  9.     :Language.      Modula-2
  10.     :Translator.  M2Amiga V3.2e
  11.     :History.      V1.0  1-May-89 Preusing
  12.     :Bugs.      none
  13. ---------------------------------------------------------------------------*)
  14. DEFINITION MODULE HiPattern;
  15.  
  16. FROM Graphics    IMPORT    RastPortPtr;
  17.  
  18.  
  19. TYPE
  20.   Pattern =
  21.     (full, wideLD, narrowLD, wideRD, narrowRD, wideR, narrowR, wideD, narrowD,
  22.      wideCross, narrowCross, half, quart, eight, wideCheck, narrowCheck,
  23.      bigDot, smallDot, wave, crossWave, bricks);
  24.  
  25. PROCEDURE SetPattern(rp: RastPortPtr; nr:Pattern);
  26.  
  27. END HiPattern.def
  28.